home *** CD-ROM | disk | FTP | other *** search
/ Cocktail Hour / image.iso / SLIDES.CST / 00003_INIT slideShow X.ls < prev    next >
Encoding:
Text File  |  1996-12-11  |  625 b   |  18 lines
  1. on exitFrame
  2.   global gHistoryList, gHyperWords, gRecNumber, gAutoMode, gCurrentSlideShow
  3.   global gCurrentZone
  4.   
  5.   put 1 into gCurrentZone
  6.   startTimer
  7.   unloadMember
  8.   set gAutoMode to FALSE  
  9.   puppetSprite 5, true
  10.   puppetSprite 7, TRUE
  11.   set the locH of sprite 7 to the left of sprite 6
  12.   put line gCurrentZone of field (230 + gCurrentSlideShow) of castLib "WeekDay" into recLine
  13.   put value (word 1 of recLine) into gRecNumber
  14.   delete word 1 of recLine
  15.   put recLine into field "userListDishName" of castLib "WeekDay"
  16.   set the castNum of sprite 5 to member (600 + gRecNumber) of castLib "Pics"
  17.   cursorize 15, 32
  18. end